function run_101(Npath,dir101)
if exist('dir101','var')
    l=dir101(end);
    str=['!',Npath,' ',dir101,'\101',l,'.bdf'];
else
    str=['!',Npath,' 101.bdf'];
    l='';
end
eval(str);
check_f06(['101',l,'.f06']);
delete(['101',l,'.f04']);
delete(['101',l,'.log']);
delete(['101',l,'.xdb']);
delete(['101',l,'.DBALL']);
delete(['101',l,'.MASTER']);
delete(['101',l,'.IFPDAT']);
end